COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	INSTRUMENT FM
C00003 ENDMK
C⊗;
INSTRUMENT FM;
OSCIL(P4,MAG/P2,P5);
INTRP(P7*P9*MAG,P8*P9*MAG,P10);
OSCIL(U2,P9*MAG,P11);
NOSCIL(U1,U3+P3*MAG,P6);
OUTA←OUTA+U4;END;
        
      	ARRAY F1,F2,F3(512); < all these are already declared in MUS10
      	SYNTH(F1); 1 1 999;   < A sine wave.
      	SEG(F2);0,1  .9,4  1,8  1,72  .8,88  .5,95  0,100; < Envelope
      	SEG(F3); 0,1  1,100;  < An upward slope or ramp.
        
      	PLAY; FM 0 .5 100 1000 F2   F1 0 10 100 F3  F1; FINISH;